program comp
  
  const MAX = 10
  
  type Date = compound
         day, month, year: int
       end
       Student = compound
         id: int
         name: string
         age: int
         dateOfBirth: Date
         marks: array[1:MAX] of int
         nMarks: int -- number of marks
       end
       
  var s1 : Student
      students: array [1:MAX] of Student
      nStudents: int
    
begin
  s1.id := 10034
  s1.name := "test"
  s1.age := 19
  s1.dateOfBirth.day := 10
  s1.dateOfBirth.month := 6
  s1.dateOfBirth.year := 1990
  
  students[1].marks[2] := 3
  
  Write(in s1.id)
  Read()
end